perm filename GLIFM[MUS,LCS]1 blob
sn#031864 filedate 1974-01-08 generic text, type T, neo UTF8
00100 < GLISSANDO INST.
00400 COMPILE;
00500 INSTRUMENT GLISS;
00600 OSCIL[10](P4,10*MAG/P2,P5);
00650 OSCIL((P7-P3)*MAG,MAG/P2,P8);<P7=END OF GLISS, P8=SHAPE OF GLISS
00700 COSCIL(U1,U2+P3*MAG,P6);<P6 IS TONE COLOR FOR 'GLISS'
00800 OUTA←OUTA+U3;END;
00950 FINISH;
02500
02600 ARRAY F2,F3,F6(512); < ARRAY 1 IS IN FILE 'NOTES'.
02700 SEG(F1);.9 6,1 11 .9 82 .7 90 0 100; < MEZZO LEGATO
02800 SEG(F2);1 3,1 11,.5 31,.3 51,0 100; < STACCATO
02900 SYNTH(F3);1,.8 2,.25 3,.1 999; < GLISS'S WAVE
03200 SEG(F6);0 0 1 100;<GLISS RAMP
03300
03600 PLAY;GLISS 0 .3 C 255 F1 F3 B F6;FINISH;
03700
03800
03900
04000 <**** FM INSTRUMENTS ****
04100 ARRAY F9(512);
04300 SYNTH(F9); 1 1 999; < SINE WAVE
04500
04600 COMPILE;
04700 INSTRUMENT FM1;
04800 OSCIL[10](P4,10*MAG/P2,P5);
04900 INTRP(P6*P9*MAG,P7*P9*MAG,P8);<P6*P9=MOD. INDEX
05000 OSCIL(U2,MAG*P9,F9); <P9=MOD. FREQ.
05100 NOSCIL(U1,MAG*P3+U3,F9); <P3=CENT. FREQ.
05200 OUTA←OUTA+U4; END;
05300 FINISH;
05400
06600 PLAY;
06700 FM1 0 .50 C 255 F1 0 5 F6 P3; FINISH;